home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / HSBASIC2.DMS / in.adf / HB2Examples1.3.Lha / Examples / GetDiskUnitID / GetDiskUnitID.bas < prev    next >
Encoding:
BASIC Source File  |  1994-04-14  |  896 b   |  40 lines
  1. ''
  2. '' $Id: GetDiskUnitID.bas,v 1.2 1994/03/16 12:37:40 alex Rel $
  3. ''
  4. '' Example of getting the UnitID of a disk
  5. ''
  6. '' Derived from RKM example (c) Copyright 1992 Commodore-Amiga, Inc.
  7. ''
  8.  
  9. DEFINT A-Z
  10.  
  11. 'REM $INCLUDE Exec.bh
  12. 'REM $INCLUDE Disk.bh
  13.  
  14. LIBRARY OPEN "exec.library", LIBRARY_MINIMUM&
  15.  
  16. SUB main
  17.     STATIC i
  18.     
  19.     LIBRARY VARPTR "disk.resource", OpenResource&(SADD("disk.resource" + CHR$(0)))
  20.     IF LIBRARY("disk.resource") = NULL& THEN
  21.         PRINT "Cannot open disk.resource"
  22.     ELSE
  23.         PRINT "Defined drive types are:"
  24.         PRINT "  AMIGA  $00000000"
  25.         PRINT "  5.25'' $55555555"
  26.         PRINT "  AMIGA  $00000000 (high density)"    'Commodore-only product
  27.         PRINT "  None   $FFFFFFFF"
  28.         PRINT
  29.  
  30.         'What are the UnitIDs?
  31.         FOR i = 0 TO 3
  32.             PRINT "The UnitID for unit "; i; " is "; HEX$(GetUnitID&(i))
  33.         NEXT i
  34.         LIBRARY VARPTR "disk.resource", NULL&    'ensure no-one can attempt to close it
  35.     END IF
  36. END SUB
  37.  
  38. main
  39. END
  40.